home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
MENU_UTL
/
DESIGN
/
WRITSORT.INC
< prev
Wrap
Text File
|
1987-05-11
|
760b
|
37 lines
overlay procedure writsort;
type
string200 = string[200];
var
line : string200;
infile, outfile : text;
i : integer;
begin
assign(outfile,progname+'s.pas');
rewrite(outfile);
assign(infile,'sortlib1.inc');
reset(infile);
while not eof(infile) do
begin
readln(infile,line);
writeln(outfile,line);
end;
close(infile);
writeln(outfile,' ID1 := FirstCust.'+vars[key],';');
writeln(outfile,' ID2 := SecondCust.`+vars[key],';');
writeln(outfile,' Less := ID1 < ID2');
assign(infile,sortlib2.inc);
reset(infile);
while not eof(infile) do
begin
readln(infile,line);
writeln(outfile,line);
end;
close(infile);
close(outfile);
end;